home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gslp.ps < prev    next >
Text File  |  2003-01-03  |  20KB  |  685 lines
  1. %    Copyright (C) 1991, 1995, 1996, 1997, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % gslp.ps - format and print text
  8.  
  9. % This utility provides functionality approximately equivalent to the Unix
  10. % `enscript' program.  It prints plain text files using a single font.
  11. % It currently handles tabs and formfeeds, but not backspaces.
  12. % It will line-wrap when using fixed-pitch fonts.
  13. % It will also do kerning and width adjustment.
  14. % Standard switches implemented:
  15. %    -12BclqRr -b<header> -f<font> -F<hfont> -L<lines> -p<outfile>
  16. % Sun switches implemented:
  17. %    -T<n>    set tab width
  18. % Switches ignored:
  19. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  20. % Switches added:
  21. %    --add-to-space <units>
  22. %        add the given number of 1/72" units to the width of each
  23. %        space (may be negative)
  24. %    --add-to-width <units>
  25. %        add the given number of 1/72" units to the width of each
  26. %        character (may be negative)
  27. %    --columns <n>
  28. %        print in <n> columns
  29. %    --detect
  30. %        treat the file as PostScript if it starts with %!
  31. %    --first-page <n>
  32. %        start printing at page <n>
  33. %    --kern <file.afm>
  34. %        kern using information from the given .AFM file
  35. %    --last-page <n>
  36. %        stop printing after page <n>
  37. %    --(heading|footing)-(left|center|right) <string>
  38. %        set the heading/footing fields; use -B first to clear
  39. %    --margin-(top|bottom|left|right) <inches>
  40. %        set a margin
  41. %    --no-eject-(file|formfeed)
  42. %        end-of-file/FF only starts a new column, not a new sheet
  43. %    --spacing <n>
  44. %        use double (n=2), triple (n=3), etc. spacing
  45. % Also, the string %# in a heading or footing is replaced with the page #.
  46. /PageNumberString (%#) def
  47.  
  48. /lpdict 150 dict def
  49. lpdict begin
  50.  
  51. % build iso-latin-1 version of a font
  52. /font-to-iso-latin-1 {    % <font> font-to-iso-latin-1 <font>
  53.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  54.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  55.     /Encoding ISOLatin1Encoding def currentdict end
  56.     dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn 
  57.     exch definefont
  58. } def
  59.  
  60. /find-latin-font {    % <name> find-latin-font <font>
  61.   findfont font-to-iso-latin-1
  62. } def
  63.  
  64. % Define the initial values of the printing parameters.
  65.  
  66. /AddToSpace 0 def
  67. /AddToWidth 0 def
  68. /BodyFont null def        % use default
  69.   /defaultBodyFontPortrait
  70.     /Courier find-latin-font 10 scalefont def
  71.   /defaultBodyFontLandscape
  72.     /Courier find-latin-font 7 scalefont def
  73.   /defaultBodyFont
  74.     { Landscape { defaultBodyFontLandscape } { defaultBodyFontPortrait } ifelse } def
  75. /Columns 1 def
  76. /DetectFileType false def
  77. /EjectEOF true def
  78. /EjectFF true def
  79. /Footers false def
  80. /FootingLeft () def
  81. /FootingCenter () def
  82. /FootingRight () def
  83. /Headers true def
  84. /HeadingLeft () def
  85. /HeadingCenter () def
  86. /HeadingRight (page ) PageNumberString concatstrings def
  87. /HeadingFont null def        % use default
  88.   /defaultHeadingFont
  89.     /Courier-Bold find-latin-font 10 scalefont def
  90. /Kern 0 dict def        % no kerning
  91. /Landscape false def
  92. /MarginBottom 36 def        % 1/2"
  93. /MarginLeft 36 def        % 1/2"
  94. /MarginRight 36 def        % 1/2"
  95. /MarginTop 36 def        % 1/2"
  96. /MaxLines 9999 def        % max lines per page
  97. /Noisy true def            % i.e., not quiet
  98. /OutFile null def        % null = write directly to device
  99. /PageFirst 1 def
  100. /PageLast 99999 def
  101. /Spacing 1 def
  102. /Tab 8 def
  103. /Truncate false def        % wrap long lines, don't truncate
  104.  
  105. % When writing to a file, we want to write out PostScript;
  106. % when writing to the printer, we want to execute it;
  107. % some commands should be executed regardless.
  108. % lpexec provides for all this.
  109.  
  110. /lpdef {    % <name> <value> lpdef -
  111.   /def 2 true lpexec
  112. } def
  113.  
  114. /lpexec {    % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  115.   OutFile null eq {
  116.     pop 1 add true
  117.   } {
  118.     /t exch def 1 add /n exch def cvx
  119.     n -1 roll dup wo
  120.     n 1 sub { n -1 roll dup wosp } repeat
  121.     (\n) ws n t
  122.   } ifelse
  123.     { pop load exec }
  124.     { { pop } repeat }
  125.   ifelse
  126. } def
  127.  
  128. /lpmoveto {    % <x> <y> lpmoveto -
  129.     % Round the coordinates for smaller output.
  130.   2 {
  131.     exch 100 mul round 100 div
  132.     dup dup cvi eq { cvi } if
  133.   } repeat
  134.   1 index X eq { neg exch pop /V 1 } { neg /M 2 } ifelse true lpexec
  135. } def
  136. /lpshow {    % <string> lpshow -
  137.   dup length 0 ne {
  138.     addspace 0 ne {
  139.       addspace 0 32 
  140.       addwidth 0 ne {
  141.     addwidth 0 6 -1 roll /awidthshow 6 true lpexec
  142.       } {
  143.     4 -1 roll /widthshow 4 true lpexec
  144.       } ifelse
  145.     } {
  146.       addwidth 0 ne {
  147.     addwidth 0 3 -1 roll /ashow 3 true lpexec
  148.       } {
  149.     OutFile null ne {
  150.       dup dup length =string length gt {
  151.         /show 1 false lpexec
  152.       } {
  153.         (S ) ws ws (\n) ws
  154.       } ifelse
  155.     } if show 
  156.       } ifelse
  157.     } ifelse
  158.   } {
  159.     pop
  160.   } ifelse
  161. } def
  162. /lpsetmyfont {
  163.   dup load setfont
  164.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  165. } def
  166.  
  167. % Define some utility procedures.
  168.  
  169. /banner        % ypos left center right
  170.  { /HFont lpsetmyfont
  171.    /addspace 0 def /addwidth 0 def
  172.    /pairkern 0 dict def
  173.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  174.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  175.    bannerstring
  176.         % Prevent the last character of the heading from grazing
  177.         % the right margin.
  178.         % ****** WHY DOES IT REQUIRE SO MUCH PADDING? ******
  179.    ( ) stringwidth pop 2 mul add
  180.    pwidth exch sub
  181.    3 -1 roll pwidth showline2 pop
  182.  } def
  183.  
  184. /bannerstring    % string -> string width
  185.   { PageNumberString search
  186.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  187.      }
  188.     if dup stringwidth pop
  189.   } def
  190.  
  191. /beginpage
  192.  { /lindex 0 def
  193.    /skipping pindex PageFirst ge pindex PageLast le and not def
  194.    pagex pagey Landscape {/BL} {/B} ifelse 2 true lpexec
  195.    /pagesave exch def
  196.    skipping { nulldevice   /OutFile null def } if
  197.    Headers
  198.     { lheight hdescent add
  199.       HeadingLeft HeadingCenter HeadingRight banner
  200.     } if
  201.    /BFont lpsetmyfont
  202.    /pairkern Kern def
  203.    /addspace AddToSpace def /addwidth AddToWidth def
  204.    pairkern length 0 ne {
  205.      /addspace AddToSpace lpdef /addwidth AddToWidth lpdef
  206.    } if
  207.  } def
  208.  
  209. /endpage {
  210.   lindex 0 ne {
  211.     Footers {
  212.       topskip plength sub hdescent add
  213.       FootingLeft FootingCenter FootingRight banner
  214.     } if
  215.     /E
  216.   } {
  217.     /restore
  218.   } ifelse
  219.   pagesave exch 0 true lpexec
  220.   /pindex pindex 1 add def
  221. } def
  222.  
  223. /endcolumn
  224.  { lindex colines 1 sub add colines idiv colines mul
  225.    dup llength ge { pop endpage beginpage } { /lindex exch def } ifelse
  226.  } def
  227.  
  228. /fontheight    % <font> fontheight <ascent> <height>
  229.  { gsave setfont
  230.    newpath 0 0 moveto
  231.    (|^_j) false charpath
  232.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  233.    grestore exch 1.25 mul exch 1.25 mul
  234.  } def
  235.  
  236. /wdict {
  237.   dup length wosp ( dict\n) ws
  238.   { (dup) ws exch wosp wosp ( put\n) ws } forall
  239. } def
  240. /wosp { ( ) ws wo } def
  241. /wo {
  242.   dup type /dicttype eq { wdict } { OutFile exch write==only } ifelse
  243. } def
  244. /ws {
  245.   OutFile exch writestring
  246. } def
  247.  
  248. /outfont {        % <name> <font> outfont -
  249.   OutFile null ne {
  250.     exch wo
  251.     dup /FontName get 
  252.     dup wosp (-ISOLatin1) ws wosp ( RE) ws
  253.     /FontMatrix get 0 get 1000 mul round cvi wosp
  254.     ( scalefont def\n) ws
  255.   } {
  256.     pop pop
  257.   }ifelse
  258. } def
  259.  
  260. /StringFF (\f) def
  261. /CharFF StringFF 0 get def
  262. /StringTAB (\t) def
  263. /CharTAB StringTAB 0 get def
  264.  
  265. /showline        % line -> leftover_line (handles \f)
  266.  {  { showline1 dup length 0 eq { exit } if
  267.       dup 0 get CharFF ne { exit } if
  268.       EjectFF { endpage beginpage } { endcolumn } ifelse
  269.       skip1
  270.     }
  271.    loop
  272.  } def
  273.  
  274. /showline1        % line -> leftover_line (handles page break)
  275.  { lindex llength eq { endpage beginpage } if
  276.    lindex colines idiv cowidth mul        % x
  277.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  278.    1 index cowidth add
  279.    showline2
  280.    /lindex lindex 1 add def
  281.  } def
  282.  
  283. /setxy {
  284.   /ty exch def /tx exch def
  285. } def
  286.  
  287. /showline2 {    % string x y xlimit -> leftover_string (handles tabs)
  288.   2 index exch 5 2 roll setxy {
  289.         % Stack: xinit xlimit string
  290.     showline3 dup length 0 eq { exit } if
  291.     dup 0 get CharTAB ne { exit } if
  292.     tx 3 index sub tabwx div
  293.       0.05 add ceiling tabwx mul 3 index add ty setxy
  294.     skip1
  295.     tx 2 index ge { exit } if
  296.   } loop exch pop exch pop
  297. } def
  298.  
  299. /showline3 {    % xlimit string -> xlimit leftover_string
  300.         % (finds line break / tab / formfeed)
  301.   1 index tx sub
  302.     cwx div 0.1 add cvi 0 max 1 index length min
  303.   1 index 0 3 -1 roll getinterval
  304.     % look for \f or \t
  305.   StringFF search { exch pop exch pop } if
  306.   StringTAB search { exch pop exch pop } if
  307.   dup length 0 ne {
  308.     tx ty lpmoveto
  309.     dup pairkern length 0 eq {
  310.       lpshow
  311.     } {
  312.       { kproc } exch /kshow 2 true lpexec
  313.     } ifelse
  314.     currentpoint setxy
  315.   } if
  316.   length dup 2 index length exch sub getinterval
  317. } def
  318.  
  319. /kproc {    % <char1> <char2> kproc -
  320.   pairkern currentfont /Encoding get 3 index get
  321.   2 copy known {
  322.     get currentfont /Encoding get 2 index get
  323.     2 copy known {
  324.       get currentfont /FontMatrix get 0 get mul
  325.     } {
  326.       pop pop 0
  327.     } ifelse
  328.   } {
  329.     pop pop 0
  330.   } ifelse
  331.   addwidth add 2 index 32 eq { addspace add } if
  332.   dup 0 eq { pop } { 0 rmoveto } ifelse
  333.   pop pop
  334. } def
  335.  
  336. /skip1
  337.  { dup length 1 sub 1 exch getinterval
  338.  } def
  339.  
  340. /e== {        % <object> e== - -- print an object to stderr
  341.   (%stderr) (w) file dup 3 -1 roll write==only flushfile
  342. } def
  343.  
  344. /eprint {    % <string> eprint - -- print a string to stderr
  345.   (%stderr) (w) file dup 3 -1 roll writestring flushfile
  346. } def
  347.  
  348. % Read kerning information from a .AFM file.
  349.  
  350. /readkern {    % <afmfile> readkern <pairkerndict>
  351.   /mfilename 1 index def
  352.   (r) file /mfile exch def
  353.   mfile =string readline pop
  354.   (StartFontMetrics ) anchorsearch {
  355.     pop pop
  356.     /kdict 256 dict def
  357.     { mfile =string readline pop
  358.       (EndFontMetrics) anchorsearch { pop pop exit } if
  359.       (KPX ) anchorsearch {
  360.     pop token pop cvlit /char1 exch def
  361.     token pop cvlit /char2 exch def
  362.     token pop /kern exch def pop
  363.     kdict char1 .knownget not {
  364.       5 dict kdict char1 2 index .growput
  365.     } if
  366.     char2 kern .growput
  367.       } {
  368.     pop
  369.       } ifelse
  370.     } loop kdict
  371.   } {
  372.     pop
  373.     mfilename eprint ( does not begin with StartFontMetrics.\n) eprint
  374.     0 dict
  375.   } ifelse
  376.   mfile closefile
  377. } def
  378.  
  379. % The main printing procedure
  380.  
  381. /doFirst true def
  382. /prevBFont null def
  383. /prevHFont null def
  384.  
  385. /lpfirst {    % - lpfirst -
  386. % Define some abbreviating procedures.
  387.   /B {save 3 1 roll translate /X 0 def} lpdef
  388.   /BL {save 3 1 roll 90 rotate translate /X 0 def} lpdef
  389.   /E {showpage restore} lpdef
  390.   /V {neg X exch moveto} lpdef
  391.   /M {/X 2 index def neg moveto} lpdef
  392.   /S {currentfile =string readline pop show} lpdef
  393.   /RE {        % <isoname> <fontname> RE <font>
  394.     findfont
  395.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  396.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  397.     /Encoding ISOLatin1Encoding def currentdict end
  398.     definefont
  399.   } lpdef
  400. } def
  401.  
  402. /lp {        % file initial_chars ->
  403.   /lpline exch def
  404.   /lpfile exch def
  405.  
  406.   doFirst { lpfirst /doFirst false def } if
  407.  
  408. % Initialize the device and fonts.
  409.   /BFont
  410.     BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  411.   BFont prevBFont ne {
  412.     /BFont BFont outfont
  413.     /prevBFont BFont def
  414.   } if
  415.   Headers Footers or {
  416.     /HFont
  417.       HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  418.     HFont prevHFont ne {
  419.       /HFont HFont outfont
  420.       /prevHFont HFont def
  421.     } if
  422.   } if
  423.   save
  424.  
  425. % Get the layout parameters.
  426.    clippath
  427.    gsave    % for possible rotation
  428.    Landscape { 90 rotate } if
  429.    BFont setfont ( ) stringwidth pop /cwx exch def
  430.      cwx Tab mul /tabwx exch def
  431.    BFont fontheight /fheight exch def /fascent exch def
  432.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  433.      /hheight exch def /hascent exch def
  434.      /hdescent hheight hascent sub def
  435.    fheight Spacing mul /lheight exch def
  436.    Headers { hheight lheight add } { 0 } ifelse
  437.      /topskip exch def
  438.    Footers { hheight lheight add } { 0 } ifelse
  439.      /botskip exch def
  440.    /pskip topskip botskip add def
  441.     % Translate the page so that (0,0) corresponds to
  442.     % the top of the topmost body line.
  443.    pathbbox
  444.      2 index sub MarginBottom MarginTop add sub /plength exch def
  445.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  446.      pwidth Columns div /cowidth exch def
  447.      exch MarginLeft add
  448.      exch MarginBottom add plength add topskip sub
  449.      /pagey exch def /pagex exch def
  450.    plength pskip sub lheight div cvi MaxLines min
  451.      dup /colines exch def
  452.      Columns mul /llength exch def
  453.    grestore
  454.    OutFile null ne { nulldevice } if
  455.  
  456. % Print layout
  457.    Noisy
  458.     { (Page height = ) eprint llength e==
  459.       (.\n) eprint flush
  460.     } if
  461.  
  462. % Write the kerning table, if relevant.
  463.    OutFile null ne Kern length 0 ne and {
  464.      (/kproc) ws /kproc load wosp ( def\n) ws
  465.      (/pairkern) ws Kern wosp ( def\n) ws
  466.    } if
  467.  
  468. % Disable stack recording so we can use stopped with readline.
  469.    $error /recordstacks false put
  470.  
  471. % Initialize for the first page.
  472.    /lbuf 1000 string def
  473.    /pindex 1 def
  474.    beginpage
  475.  
  476. % Iterate through the file.
  477.    lpline
  478.     { dup length /pos exch def
  479.       lbuf exch 0 exch putinterval
  480.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  481.        {    % Filled the line before a CR or EOF.
  482.          exch pop showline
  483.        }
  484.        {    % Reached CR and/or EOF first.
  485.          exch length pos add lbuf exch 0 exch getinterval
  486.      1 index { showline } if        % omit final empty line
  487.       { dup length 0 eq Truncate or { pop () exit } if
  488.         showline
  489.       }
  490.      loop
  491.      exch not { exit } if
  492.        }
  493.       ifelse
  494.     } loop
  495.    pop
  496.  
  497. % Wrap up.
  498. %**************** WHY IS THIS COMMENTED OUT? ****************
  499. %   EjectEOF { endpage } { endcolumn } ifelse
  500.    endpage
  501.    restore
  502.  
  503. } def
  504.  
  505. end
  506.  
  507. % Usage: <file> lp
  508. %   prints <file> using the current parameter settings.
  509. % Usage: [ <arg1> ... <argn> ] lpcommand
  510. %   interprets args like a command line.
  511.  
  512. /lp { save   lpdict begin () lp end   restore } def
  513.  
  514. lpdict begin
  515.  
  516. /splitfn        % (FontNNN) -> <font>
  517.  { dup /arg exch def length
  518.     { dup 0 le { exit } if
  519.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  520.       1 sub
  521.     } loop
  522.    arg exch 0 exch getinterval dup cvn find-latin-font
  523.    exch arg exch anchorsearch pop pop cvr scalefont
  524.  } def
  525.  
  526. % Parse the command line switches.
  527.  
  528. /doswitch    % argn ... arg1 (-?) restofswitch ->
  529.  { exch dup cvn lpdict exch known
  530.     { cvn load exec }
  531.     { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
  532.    ifelse
  533.  } def
  534.  
  535. /more        % argn ... arg1 restofswitch ->
  536.  { dup length 0 ne
  537.     { (- ) dup 1 3 index 0 get put
  538.       exch dup length 1 sub 1 exch getinterval
  539.       doswitch
  540.     }
  541.     { pop
  542.     }
  543.    ifelse
  544.  } def
  545.  
  546. /-- { (--) exch concatstrings
  547.       dup cvn lpdict exch known
  548.        { cvn load exec }
  549.        { (Unknown switch: ) eprint eprint (\n) eprint }
  550.       ifelse
  551.     } def
  552. /--add-to-space { cvr /AddToSpace exch def } def
  553. /--add-to-width { cvr /AddToWidth exch def } def
  554. /--columns { cvi 1 max /Columns exch def } def
  555. /--detect { /DetectFileType true def } def
  556. /--first-page { cvi /PageFirst exch def } def
  557. /--footing-center { /FootingCenter exch def   /Footers true def } def
  558. /--footing-left { /FootingLeft exch def   /Footers true def } def
  559. /--footing-right { /FootingRight exch def   /Footers true def} def
  560. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  561. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  562. /--heading-right { /HeadingRight exch def   /Headers true def } def
  563. /--kern { readkern /Kern exch def } def
  564. /--last-page { cvi /PageLast exch def } def
  565. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  566. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  567. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  568. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  569. /--no-eject-file { /EjectEOF false def } def
  570. /--no-eject-formfeed { /EjectFF false def } def
  571. /--spacing { cvr /Spacing exch def } def
  572.  
  573. /-# { pop } def        % ignore
  574. /-+ { -- } def
  575. (-1)cvn { /Columns 1 def   more } def
  576. (-2)cvn { /Columns 2 def   more } def
  577. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  578.       /Headers true def
  579.       /break true def
  580.     } def
  581. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  582.       /Headers false def
  583.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  584.       /Footers false def
  585.       /break true def
  586.       more
  587.     } def
  588. /-C { pop } def        % ignore
  589. /-c { /Truncate true def   more } def
  590. /-d { pop } def        % ignore
  591. /-f { splitfn /BodyFont exch def } def
  592. /-F { splitfn /HeadingFont exch def } def
  593. /-G { more } def    % ignore
  594. /-g { more } def    % ignore
  595. /-h { more } def    % ignore
  596. /-J { pop } def        % ignore
  597. /-K { more } def    % ignore
  598. /-k { more } def    % ignore
  599. /-l { 66 -L -B } def
  600. /-L { cvi /MaxLines exch def } def
  601. /-m { more } def    % ignore
  602. /-n { pop } def        % ignore
  603. /-o { more } def    % ignore
  604. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  605. /-P { pop } def        % ignore
  606. /-q { /Noisy false def   more } def
  607. /-r { /Landscape true def   more } def
  608. /-R { /Landscape false def   more } def
  609. /-S { pop } def        % ignore
  610. /-s { pop } def        % ignore
  611. /-T { cvi /Tab exch def } def
  612. /-v { pop } def        % ignore
  613. /-w { more } def    % ignore
  614.  
  615. /lp1        % filename ->
  616.  { break not { dup /HeadingLeft exch def } if
  617.    Noisy
  618.     { (Printing ) eprint dup eprint (\n) eprint 
  619.     } if
  620.    (r) file
  621.         % If requested, check for a PostScript file.
  622.    DetectFileType
  623.     { dup 2 string readstring pop dup (%!) eq
  624.        {    % Yes, it's a PostScript file.
  625.          pop dup 80 string readline pop pop cvx exec
  626.        }
  627.        { lp
  628.        }
  629.       ifelse
  630.     }
  631.     { () lp
  632.     }
  633.    ifelse
  634.  } bind def
  635.  
  636. /lpcstring 100 string def
  637.  
  638. end
  639.  
  640. /lpcommand        % <[arg1 ... argn]> lpcommand <any_printed>
  641.  {    % Push the commands on the stack in reverse order
  642.    mark exch
  643.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  644.    lpdict begin
  645.    /any false def
  646.    /break false def
  647.     { dup mark eq { pop exit } if
  648.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  649.        { dup 0 2 getinterval
  650.          exch dup length 2 sub 2 exch getinterval
  651.      doswitch
  652.        }
  653.        { dup  /matched false def
  654.           { /matched true def   /any true def   lp1 } lpcstring filenameforall
  655.      matched { pop } { lp1 } ifelse        % let the error happen
  656.        }
  657.       ifelse
  658.     } loop
  659.    OutFile null ne
  660.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  661.       /OutFile null def
  662.     } if
  663.    any
  664.    end
  665.  } def
  666.  
  667. [ shellarguments
  668.  { ] dup length 0 ne { lpcommand } { false } ifelse not
  669.     { (%stderr) (w) file
  670.       [ (Usage: )
  671.     /PROGNAME where { pop PROGNAME } { (gslp) } ifelse
  672.     ( [-12BclqRr] [-b<header>] [-f<font>] [-F<hfont>]\n)
  673.     (        [-L<lines>] [-p<outfile>] [-T<tabwidth>]\n)
  674.     (        [--add-to-(space|width) <units>] [--columns <n>]\n)
  675.     (        [--detect] [--first-page <page#>] [--last-page <page#>]\n)
  676.     (        [--(heading|footing)-(left|right|center) <string>]\n)
  677.     (        [--kern <afmfile>] [--margin-(top|bottom|left|right) <inches>]\n)
  678.     (        [--no-eject-(file|formfeed)] [--spacing <n>] file1 ... filen\n)
  679.       ] { 2 copy writestring pop } forall dup flushfile closefile
  680.     }
  681.    if
  682.  }
  683.  { pop }
  684. ifelse
  685.